function [INN,RIN]=normvc(IN,base)
% Normaliza uma matriz atraves de seus valores maximos e minimos,
% colocando uma pequena margem dependente da base logaritmica
% escolhida. A normalizacao e' feita por linhas.
%
% function [INN,RIN]=normvc(IN,base)
%   
%    IN  : Matriz de entrada
%    base: base logaritmica utilizada
%    INN : Matriz normalizada
%    RIN : Limites inferir e superior usados

% Marcelo Barros - 04/08/1997

[ncti,nele] = size(IN);

base = 1.2;
RIN  = [min(IN')'  max(IN')' ];
RIN  = sign(RIN).*base.^(floor(log(abs(RIN))/log(base))+1);

for k=1:ncti
	t=sign(IN(k,:));
	if (length(find(t==1))~=0) & (length(find(t==-1))~=0)
		i=find(IN(k,:)>=0);
		j=find(IN(k,:)<0);
		INN(k,i)=IN(k,i)/RIN(k,2);
		INN(k,j)=IN(k,j)/abs(RIN(k,1));
	else
		INN(k,:)=IN(k,:)/(RIN(k,2)-RIN(k,1));
	end
end
